home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1997 February / Computer Life February 1997.iso / TELME / COMMS / FPCMCIA.SRP < prev    next >
Text File  |  1996-06-04  |  2KB  |  108 lines
  1. rem Copyright (c) PhoneLink plc
  2. rem PCMCIA Fast Connect Modem (10/8/95)
  3.  
  4. label InitDevice
  5. echo off
  6. label OffToGate
  7. rem Offline to Gate (also contains Pad to Gate)
  8. echo off
  9. rem Initialisation string 
  10. rem send    "at&f&c1&d2%f3s15=120s24=0s25=15char(13)"
  11. echo script[57]
  12. send    "at{InitModemStr}char(13)"
  13. timeout 5,modem_fail
  14. find    "OK"
  15. send   "atdt{PreTel}{SiteTel}{PostFix}char(13)"
  16. echo script[52]..
  17. timeout {DialTimeout},connect_fail
  18. finderr 0,BUSY,busy
  19. finderr 103,NO DIALTONE,connect_fail
  20. finderr 0,NO CARRIER,no_carrier  
  21. find    "PAD>"
  22. label PadToGate
  23. echo script[53]
  24. echo off
  25. send    "SER{SUB}char(13)"
  26. timeout 3,nua_bad1
  27. finderr 0,COM,nua_good
  28. find    "ZZZ"
  29. label nua_bad1
  30. echo script[58]
  31. send    "SER{SUB}char(13)"
  32. timeout 3,nua_bad2
  33. finderr 0,COM,nua_good
  34. find    "ZZZ"
  35. label nua_bad2
  36. echo script[58]
  37. send    "SER{SUB}char(13)"
  38. timeout 3,nua_fail
  39. find    "COM"
  40. label nua_good
  41. echo script[54].
  42. mwait 500
  43. end
  44.  
  45. label GateToPad
  46. echo off
  47. echo script[92]
  48. send    "char(16)CLRchar(13)"
  49. timeout 5,ctrl_p_clear_fail
  50. find    "CONF"
  51. echo script[91]..
  52. end
  53.  
  54. label GateToOff
  55. rem Gate To Offline (also contains Pad to Offline)
  56. echo off
  57. echo script[92]
  58. send    "char(16)CLRchar(13)"
  59. timeout 5,ctrl_p_clear_fail
  60. find    "CONF"
  61. label PadToOff
  62. echo off
  63. echo script[92]
  64. send    "char(31)char(31)char(31)char(31)"
  65. wait 1
  66. dtrtoggle
  67. echo script[99].
  68. mwait 250
  69. send    "at&fchar(13)"
  70. end
  71.  
  72. label modem_offline
  73. echo script[92]
  74. send    "char(31)char(31)char(31)char(31)"
  75. wait 1
  76. dtrtoggle
  77. label modem_reset
  78. mwait 250
  79. send    "at&fchar(13)"
  80. abort
  81.  
  82. label modem_fail
  83. echo script[23]
  84. goto modem_offline
  85.  
  86. label connect_fail
  87. echo script[1]
  88. goto modem_offline
  89.  
  90. label busy
  91. echo script[2]
  92. goto modem_offline
  93.  
  94. label no_carrier
  95. echo script[3]
  96. goto modem_offline
  97.  
  98. label nua_fail
  99. echo script[22]
  100. goto modem_offline
  101.  
  102. label ctrl_p_clear_fail
  103. echo script[14]
  104. goto modem_offline
  105.  
  106.  
  107.  
  108.